CU Amiga Super CD-ROM 6/CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso/cucd/magazine/pd_utils/agassm/rexx/delete....agassm

Text File | 1996-03-30 | 1KB | 54 lines

/* AGASSM - Delete ARexx Script */
/* © 1995 Paul Vernon */

Port = Show('P','AGASSM')
If Port = 0 then do
  Exit
  End

ADDRESS COMMAND 'C:RequestFile > T:AGASSM-Temp TITLE "AGASSM - Delete file" NOICONS'

succ = Open(file,'T:AGASSM-Temp','r')
If succ = 0 then do
  Exit
  End
String=ReadLn(file)
succ = Close(file)

ADDRESS COMMAND 'C:Delete T:AGASSM-Temp QUIET'

If String = '' then do
  Exit
  End
String = Left(String,Length(String)-1)
String = Right(String,Length(String)-1)
Filename = String

ADDRESS COMMAND 'C:RequestChoice > T:AGASSM-Temp "AGASSM - Delete File" "'Filename' and its icon?" "  OK  |Cancel"'

succ = Open(file,'T:AGASSM-Temp','r')
If succ = 0 then do
  Exit
  End
String = ReadLn(file)
succ = Close(file)

ADDRESS COMMAND 'C:Delete T:AGASSM-Temp QUIET'

If String = '0' then do
  Exit
  End

ADDRESS AGASSM
If Exists(Filename) then do
  ShowMsg 2 'Deleting : 'Filename
  ADDRESS COMMAND 'C:Delete "'Filename'" QUIET'
  End

If Exists(Filename'.info') then do
  ShowMsg 2 'Deleting icon : 'Filename'.info'
  ADDRESS COMMAND 'C:Delete "'Filename'.info" QUIET'
  End

Exit